home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00173.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  751 b   |  19 lines

  1. on mouseUp me
  2.   global warmhillsr, warmhillsg, warmhillsb, iconfade
  3.   showit(36, 38)
  4.   set the blend of sprite 49 to 100
  5.   repeat with iconfade = 47 to 48
  6.     set the blend of sprite iconfade to 50
  7.   end repeat
  8.   repeat with iconfade = 50 to 54
  9.     set the blend of sprite iconfade to 50
  10.   end repeat
  11.   set the memberNum of sprite 36 to 23
  12.   sprite(41).color = rgb(warmhillsr - 80, warmhillsg - 80, warmhillsb - 80)
  13.   sprite(42).color = rgb(warmhillsr - 40, warmhillsg - 40, warmhillsb - 40)
  14.   sprite(43).color = rgb(warmhillsr, warmhillsg, warmhillsb)
  15.   sprite(44).color = rgb(warmhillsr, warmhillsg, warmhillsb)
  16.   sprite(49).color = rgb(warmhillsr, warmhillsg, warmhillsb)
  17.   set the locH of sprite 38 to 439 + (warmhillsg * 0.78400000000000003)
  18. end
  19.